function [ W ] = MockW5CGaussian( lam )
Aampl = 1.5;
Acenter = 530;
Asigma = 60;

Aspektras = Gauss(lam, Aampl, Acenter, Asigma)';


Bampl = 1.5;
Bcenter = 400;
Bsigma = 70;

Bspektras = Gauss(lam, Bampl, Bcenter, Bsigma)';


Campl = 1.5;
Ccenter = 300;
Csigma = 50;

Cspektras = Gauss(lam, Campl, Ccenter, Csigma)';

Dampl = 1.2;
Dcenter = 600;
Dsigma = 40;

Dspektras = Gauss(lam, Dampl, Dcenter, Dsigma)';

Eampl = 1.1;
Ecenter = 200;
Esigma = 60;

Espektras = Gauss(lam, Eampl, Ecenter, Esigma)';

spec = [Aspektras Bspektras Cspektras Dspektras Espektras];
spec = spec ./ max(max(spec));

W = spec;

end

